Maybe:

Sub cossie2kaazz()
Dim i As Long
Dim z As Long
z = 21
Do Until z = 0
For i = Range("A" & Rows.Count).End(3)(1).Row To 2 Step -1
    If Range("D" & i) = "Task 1" Then
        Range("D" & i + 1).EntireRow.Insert
        Rows(i + 1).Value = Rows(i).Value
        Cells(i + 1, 4).Value = "Task 1"
        x = i + 2
        Cells(i + 1, 5).Value = "=R[-1]C+1"
        Cells(i + 1, 6).Value = "=R[-1]C+1"
    End If
Next i
z = z - 1
Loop
End Sub