Так:
Sub RADEK()
Const PI As Double = 3.14159265358979
Dim i As Integer, r As Double
Dim x0 As Double, y0 As Double, x2 As Double, y2 As Double
x0 = 300: y0 = 300
r = 150
For i = 0 To 345 Step 15
x2 = x0 + r * Cos(i * PI / 180): y2 = y0 + r * Sin(i * PI / 180)
ActiveSheet.Shapes.AddLine(x2, y2, x0, y0).Name = "line_" & i
Next i
End Sub
А это для очистки листа от линий:
Sub Макрос1()
ActiveSheet.DrawingObjects.Delete
End Sub

Дело в том, что Cos и Sin в качестве параметра требуют величину в радианах(читайте справку), а Вы подставляли градусы. Ну не Вы первый на этих граблях побывали :-)