Ticks and Frame don't play well together.
This get's you part of the way (Note edited 1 Dec 11:20 PM EST) ...

        Plot[
     With[{z = 1.1*E^(I u) + 0.908*E^(-I u)}, 
      Re[z] + 0.78*Log[Abs[z - 2]] + 0.64*Log[Abs[z - 1]] + 
       0.254*Log[Abs[z^2 - z - 1]] + 0.173*Log[Abs[z]]], {u, -15, 15},
     PlotStyle -> {Black},
     PlotRange -> {{-8, 8}, {-2, 1}},
     AspectRatio -> 1,
     AxesLabel -> (Style[#, 14] & /@ {"\[CurlyPhi]", "f"}),
     GridLines -> {Range[-8, 8, .5], Range[-2, 1, .2]},
     
     AxesOrigin -> {-8, 0},
     Ticks -> {Range[-8, 8, .5], Range[-2, 1, .2]},
     
     (* Frame->True, *)
     (* FrameTicks->{{Range[-2,1,.2],Automatic},None}, *)
     
     PlotLabel -> 
      Style[TraditionalForm[
        HoldForm[
         Re[z] + 0.78*ln[Abs[z - 2]] + 0.64*ln[Abs[z - 1]] + 
           0.254*ln[Abs[z^2 - z - 1]] + 0.173*ln[Abs[z]] <= 0.3999]], 
       "TR", Black, 14],
     ImageSize -> Large]

[![enter image description here][1]][1]

The solution does not have a `Frame` as your original solution did, perhaps someone can suggest how to add one.

I'll give it some more thought.


  [1]: https://i.sstatic.net/hFRmQ.png