Your example text doesn't have two consecutive paragraph breaks. It has unwanted paragraph breaks within the paragraph.
Maybe something like:
Dim orng As Range
Set orng = Selection.Range
With orng
'move the start of the range to the start of the current paragraph
.Start = orng.Paragraphs(1).Range.Start
'move the end of the range to the parenthesis. Obviously this won't be any use if you have multiple parentheses
.MoveEndUntil "("
'Move the end of the range to the end of the last paragraph in the range less the final paragraph break
.End = .Paragraphs.Last.Range.End - 1
'Remove any paragraph breaks in the range. This will remove any manual formatting from the range.
.Text = Replace(.Text, Chr(13), "")
End With
will work for the paragraph the cursor is in