Filling a listlineplot with a texture

This is one way of doing it:

pattern=Import["https://i.stack.imgur.com/l9iL8.jpg"];

Show[
ListLinePlot[PHB,
    PlotStyle->Directive[Red,Thickness[.007]],
    PlotTheme->"Detailed"],
Graphics[{Texture[pattern],FilledCurve[{BezierCurve[PHB]},
    VertexTextureCoordinates->Automatic]}]
]

You can also use Filling -> Axis in ListLinePlot and post-process the output to add texture to polygons:

pattern = Import["https://i.stack.imgur.com/l9iL8.jpg"];

Using option settings from Vitaliy's answer:

llp = ListLinePlot[PHB,
 PlotStyle -> Directive[Red, Thickness[.007]],
 PlotTheme -> "Detailed", 
 Filling -> Axis];

llp  /. Polygon[a_,b___] :>
  {Opacity[1], Texture[pattern], Polygon[a, VertexTextureCoordinates -> Automatic]}