Excel - Seleccionar filas salteadas

Sub Macro1()

'

' Macro1 Macro

' copia cada N registros a hoja2

'

' Acceso directo: CTRL+q

Dim x As Long  'Celdas Origenes

Dim i As Long   ' Celdas Destino

    Sheets("Hoja1").Select

    'Worksheets("Hoja1").Range(A1).Select  

    x = 2

    For i = 2 To 20   ' Aqui debe ir el numero de registros tu dices  500000  o el que te detecte

        Worksheets("Hoja2").Range("A" & i).Value = Worksheets("Hoja1").Range("A" & x).Value

        x = x + 8

    Next i

 'Worksheets("Hoja2").Range(A1).Select  

msgbox "Proceso Terminado"

End Sub