Copy a column's cell value into a new sheet where it skips every 4 rows

I am using the MACRO below and it is working but I need to do this for 50 rows and eventually up to 4 or 500. Is there an easier macro to accomplish this without having to reference each row? I am copying the Tracking Number (Column A) in the Data Tab to column B in the Audit Data tab.

Sub Macro1()
'
' Macro1 Macro
' Copy tracking # from Data tab
'
' Keyboard Shortcut: Ctrl+t
'
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=Data!RC[-1]"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "=Data!R[-4]C[-1]"
    Range("B12").Select
    ActiveCell.FormulaR1C1 = "=Data!R[-8]C[-1]"
    Range("B17").Select
    ActiveCell.FormulaR1C1 = "=Data!R[-12]C[-1]"
    Range("B22").Select
    ActiveCell.FormulaR1C1 = "=Data!R[-16]C[-1]"
    Range("B27").Select
    ActiveCell.FormulaR1C1 = "=Data!R[-20]C[-1]"
    
End Sub