This is just as easy to do without a macro, but:

Sub ride_sally_ride()
v1 = Range("A1").Value
v2 = Range("A2").Value
j = 6
For i = 3 To 35 Step 2
Cells(i, 1).Value = v1 + j
Cells(i + 1, 1).Value = v2 + j
j = j + 6
Next
End Sub

will replicate you sample data
--
Gary''s Student - gsnu200719