Insert blank rows in a large data series

This will do it:

Sub foo()
    Dim l As Long
    For l = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        Cells(l, 1).Offset(1, 0).Resize(2).EntireRow.Insert
    Next l
End Sub