I'm not seeing in the code anything that uses the ParagraphSpace values so your description doesn't match the code. To just look at oscillating the position of the text I would do it like this
Code:
Sub HandWrittenSimulation()
Dim arrPattern() As String, lngChar As Long, iPattCount As Integer, iScale As Integer
arrPattern = Split("0,1,1,1,2,2,2,3,3,3,4,4,4,3,3,3,2,2,2,1,1,1,0,0", ",")
iPattCount = UBound(arrPattern) + 1
iScale = Int(ActiveDocument.Characters(1).Font.Size) / 8
For lngChar = 1 To ActiveDocument.Characters.Count
ActiveDocument.Characters(lngChar).Font.Position = Int(VBA.Rnd * iScale + arrPattern(lngChar Mod iPattCount))
Next lngChar
End Sub