I can't make it find not-italics!
You may be stuck with looking for the indent:
Application.FindFormat.IndentLevel = 1
Dim c As Range
With Columns("A:A")
  Application.FindFormat.Clear
  Application.FindFormat.IndentLevel = 1
  Set c = .Find(What:="", LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)
  If Not c Is Nothing Then
    firstcell = c.Address
    Do
    c.Select
    'do something with c here
      Set c = .Find(What:="", after:=c, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)
    Loop Until c.Address = firstcell
  End If
End With