Problème de pas avec VBA

Bonjour,

Je cherche à supprimer des lignes tout en respectant une incrémentation.
Pour ce faire je veux mettre des X et supprimer les lignes X. Mon problème est qu' à partir de la ligne 8 j'ai des X partout sans respecter le pas que je souhaite.
Je n'y connais pas grand chose en programmation. Voici le code que j'utilise:

Sub test()
'Déclaration ===============
Dim X As Long
Dim Y As Integer
Dim Cel As Range
'MEI =======================
Y = 5
For X = 8 To 60001 Step 7
Range(Cells(X, Y), Cells(X + 29, Y)) = "X"
Next X
'suppression ===============
Do 'début de boucle ---------------------
Set Cel = Columns(Y).Find("X", LookIn:=xlValues)
'cel=celuule de la colonne Y contenant X
If Cel Is Nothing Then
'si cel n'existe pas
Exit Do
'sortir de la boucle
Else ' sinon
Rows(Cel.Row).Delete
'supprimer la ligne de cel
Set Cel = Nothing
'supprimer cel(la variable)
End If
Set Cel = Nothing
Loop 'fin de boucle --------------------
End Sub

Merci d'avance