pedim, não tem erro, o meu deu certinho, estranho, veja meu exemplo que fiz, usando o seu codigo acima que vc passou
Option Explicit
Private i As Integer
Private Sub Command1_Click()
Dim lst As ListItem
For i = 1 To 10
Set lst = Me.ListView1.ListItems.Add(, , i)
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
MsgBox "achei o item " & i
End If
Next
End Sub